home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs54.d81 / binmult.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  3KB  |  72 lines
  1. 100 PRINT"[147][144]":POKE53272,23
  2. 110 PRINT"[212]HIS DRILL IS TO HELP YOU IN "
  3. 112 PRINT
  4. 113 PRINT"BINOMIAL MULTIPLICATION."
  5. 114 PRINT
  6. 116 PRINT"[211]TUDY THE TWO BINOMIALS AND"
  7. 117 PRINT
  8. 118 PRINT"THEN TYPE IN THE THREE NUMBERS"
  9. 120 PRINT
  10. 122 PRINT"[193]   [194]    [195]"
  11. 124 PRINT"              [183][183][183][183][183][183][183][183][183][183][183]"
  12. 125 PRINT"[205]AKE SURE THAT IF ONE OF THEM":PRINT
  13. 126 PRINT"IS NEGATIVE THAT YOU TYPE IN THE":PRINT
  14. 127 PRINT"MINUS SIGN."
  15. 128 PRINT:PRINT" HIT SPACEBAR"
  16. 129 GETA$:IFA$<>" "THEN129
  17. 130 PRINT"[144][147]"
  18. 131 PRINT"[201]F YOU MAKE A MISTAKE"
  19. 132 PRINT"YOU WILL BE  GIVEN SOME HELP":PRINT"AND THE CORRECT ANSWER"
  20. 133 PRINT"[215]HEN YOU ARE READY HIT ANY KEY":PRINT"([209] WILL END DRILL)"
  21. 134 GETA$:IFA$=""THEN134
  22. 135 PRINT"[147]":IFA$="Q"THEN END
  23. 1000 A=INT(RND(1)*12)+1:C=INT(RND(1)*12)+1
  24. 1010 B=INT(RND(1)*24)-12:D=INT(RND(1)*24)-12
  25. 1015 POKE53280,8:PRINT"[144]":IFB=0ORD=0THEN1010
  26. 1016 IFA*D+(B*C)=0THEN1010
  27. 1018 IFA=ABS(B)ORC=ABS(D)THEN1000
  28. 1020 GOSUB1025
  29. 1022 GOTO1100
  30. 1025 IFB<0ORD<0THEN1031
  31. 1030 PRINT"("A"X+"B")("C"X+"D")=?"
  32. 1031 IFB<0ANDD>0THENPRINT"("A"X"B")("C"X+"D")=?"
  33. 1032 IFB>0ANDD<0THENPRINT"("A"X+"B")("C"X"D")=?"
  34. 1033 IFB<0ANDD<0THENPRINT"("A"X"B")("C"X"D")=?"
  35. 1034 RETURN
  36. 1035 PRINT"":IFB*D<0ORA*D+(B*C)<0THEN1041
  37. 1040 PRINT""A*C"X[145]2+"A*D+(B*C)"X+"B*D
  38. 1041 IFB*D<0ANDA*D+(B*C)<0THENPRINT""A*C"X[145]2"A*D+(B*C)"X"B*D
  39. 1042 IFB*D<0ANDA*D+(B*C)>0THENPRINT""A*C"X[145]2+"A*D+(B*C)"X"B*D
  40. 1043 IFB*D>0ANDA*D+(B*C)<0THENPRINT""A*C"X[145]2"A*D+(B*C)"X+"B*D
  41. 1051 IFW>5000GOTO3095
  42. 1060 GOTO135
  43. 1100 PRINT:PRINT:PRINT:PRINT:PRINT"[193]X[145]2+[194]X+[195]"
  44. 1110 PRINT"[212]YPE IN THE NUMBERS [193], [194], AND [195].":PRINT"[200]IT RETURN AFTER EACH"
  45. 1112 INPUTE,F,G
  46. 1115 IFE=A*CANDF=A*D+(B*C)ANDG=B*DTHENGOTO1117
  47. 1116 GOTO1120
  48. 1117 PRINT"[217]OU ARE CORRECT! [200]IT ANY KEY TO CONTINUE"
  49. 1118 GETA$:IFA$=""THEN1118
  50. 1119 GOTO135
  51. 1120 PRINT"[147]":FORT=1TO10:FORY=1TO15:POKE53281,Y:NEXTY:NEXTT
  52. 1123 PRINT"[217][207][213] [205][193][196][197] [193] [205][201][211][212][193][203][197]!![144]"
  53. 1124 PRINT"[212]HINK CAREFULLY ABOUT THE [198][207][201][204] METHOD"
  54. 1125 PRINT:PRINT"OF BINOMIAL MULTIPLICATION AND ALSO YOUR"
  55. 1126 PRINT:PRINT"NEGATIVE SIGNS."
  56. 1130 FORV=1TO5000:NEXT:PRINT"[147]"
  57. 3000 FORW=1TO5000:NEXT:PRINT"":GOSUB1025
  58. 3010 FORW=1TO5000:NEXT:  PRINT"          [167]         [165]"
  59. 3020 PRINT"           [163][163][163][163][163][163][163][163][163]"
  60. 3030 PRINT"             FIRST ="A*C"X[145]2"
  61. 3040 FORW=1TO5000:NEXT:PRINT"[145][145][145][145][145][145][145][145]OUTSIDE="A*D"X"
  62. 3050 PRINT"[170][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][165]
  63. 3060 [129]W[178]1[164]5000:[130]:[153]"INSIDE="B[172]C"X"
  64. 3062 [153]"+TAB(TAB(TAB(TAB(TAB(TAB(SGN
  65. 3067 FORW=1TO5000:NEXT:PRINT"[144][170][164][164][164][164][164][164][164][164][164][164][164][180]"
  66. 3070 PRINT"[144]LAST="B*D
  67. 3080 FORW=1TO5000:NEXT:PRINT"[206]OTICE THAT OUTSIDE + INSIDE="A*D+(B*C)"X"
  68. 3090 FORW=1TO5000:NEXTW:PRINT"":GOTO1035
  69. 3095 PRINT"[144][200]IT ANY KEY TO CONTINUE"
  70. 3096 GETA$:IFA$=""THEN3096
  71. 3100 PRINT"[147][206]OW TRY ANOTHER AND DON'T SCREW UP":FORW=1TO2000:NEXT:GOTO135
  72.